home *** CD-ROM | disk | FTP | other *** search
/ CD Fun House 1 / CD Fun House (Wayzata Technology).iso / •The Casino• / •Las Vegas• / HyperSlots •••• / HyperSlots ееее / card_2842.txt < prev    next >
Text File  |  1990-10-02  |  9KB  |  407 lines
  1. -- card: 2842 from stack: in
  2. -- bmap block id: 2144
  3. -- flags: 0000
  4. -- background id: 2706
  5. -- name: 
  6.  
  7.  
  8. -- part 2 (button)
  9. -- low flags: 00
  10. -- high flags: 0000
  11. -- rect: left=435 top=23 right=89 bottom=512
  12. -- title width / last selected line: 0
  13. -- icon id / first selected line: 0 / 0
  14. -- text alignment: 1
  15. -- font id: 0
  16. -- text size: 12
  17. -- style flags: 0
  18. -- line height: 16
  19. -- part name: Handle
  20. ----- HyperTalk script -----
  21. on mouseUp
  22.   put 0 into winner
  23.   hide card field 2
  24.   hide card field 3
  25.   show card field 4
  26.   hide background button 1
  27.   hide background button 2
  28.   hide background button 3
  29.   choose lasso tool
  30.   click at 477,54 with commandkey
  31.   set dragspeed to 150
  32.   drag from 477,54 to 477,100
  33.   set dragspeed to 50
  34.   drag from 477,100 to 477,54
  35.   choose browse tool
  36.   set icon of BackGround button 1 to random(7)
  37.   play boing
  38.   show background button 1
  39.   wait for 1 seconds
  40.   set icon of BackGround button 2 to random(7)
  41.   play boing
  42.   show background button 2
  43.   wait for 1 seconds
  44.   set icon of BackGround button 3 to random(7)
  45.   play boing
  46.   show background button 3
  47.  
  48.   -- check buttons for cherrys
  49.  
  50.   if icon of BackGround button 1 = 4 then
  51.     get icon of BackGround button 2
  52.     if icon of BackGround button 2 ‚↠4 then
  53.       multiply card field 1 by 1
  54.     else
  55.       if icon of BackGround button 3 ‚↠4
  56.       then multiply card field 1 by 4
  57.     else multiply card field 1 by 28
  58.   end if
  59.   hide card field 4
  60.   show card field 2
  61.   play "Woob Woob"
  62.   play "Woob Woob"
  63.   wait for 3 seconds
  64.   add card field 1 to background field 1
  65.   put 1 into winner
  66. end if
  67.  
  68. -- check buttons for oranges
  69.  
  70. if icon of BackGround button 1 = 1 then
  71.   get icon of BackGround button 2
  72.   if icon of BackGround button 2 = 1 then
  73.     get icon of BackGround button 3
  74.     if icon of BackGround button 3 = 1 then
  75.       multiply card field 1 by 8
  76.       hide card field 4
  77.       show card field 2
  78.       play "Woob Woob"
  79.       play "Woob Woob"
  80.       wait for 3 seconds
  81.       add card field 1 to background field 1
  82.       put 1 into winner
  83.     end if
  84.   end if
  85. end if
  86.  
  87. -- check buttons for apples
  88.  
  89. if icon of BackGround button 1 = 2 then
  90.   get icon of BackGround button 2
  91.   if icon of BackGround button 2 = 2 then
  92.     get icon of BackGround button 3
  93.     if icon of BackGround button 3 = 2 then
  94.       multiply card field 1 by 12
  95.       hide card field 4
  96.       show card field 2
  97.       play "Woob Woob"
  98.       play "Woob Woob"
  99.       wait for 3 seconds
  100.       add card field 1 to background field 1
  101.       put 1 into winner
  102.     end if
  103.   end if
  104. end if
  105.  
  106. -- check buttons for bells
  107.  
  108. if icon of BackGround button 1 = 3 then
  109.   get icon of BackGround button 2
  110.   if icon of BackGround button 2 = 3 then
  111.     get icon of BackGround button 3
  112.     if icon of BackGround button 3 = 3 then
  113.       multiply card field 1 by 16
  114.       hide card field 4
  115.       show card field 2
  116.       play "Woob Woob"
  117.       play "Woob Woob"
  118.       wait for 3 seconds
  119.       add card field 1 to background field 1
  120.       put 1 into winner
  121.     end if
  122.   end if
  123. end if
  124.  
  125. -- check buttons for single bars
  126.  
  127. if icon of BackGround button 1 = 5 then
  128.   get icon of BackGround button 2
  129.   if icon of BackGround button 2 = 5 then
  130.     get icon of BackGround button 3
  131.     if icon of BackGround button 3 = 5 then
  132.       multiply card field 1 by 50
  133.       hide card field 4
  134.       show card field 2
  135.       play "Woob Woob"
  136.       play "Woob Woob"
  137.       wait for 3 seconds
  138.       add card field 1 to background field 1
  139.       put 1 into winner
  140.     end if
  141.   end if
  142. end if
  143.  
  144. -- check buttons for double bars
  145.  
  146. if icon of BackGround button 1 = 6 then
  147.   get icon of BackGround button 2
  148.   if icon of BackGround button 2 = 6 then
  149.     get icon of BackGround button 3
  150.     if icon of BackGround button 3 = 6 then
  151.       multiply card field 1 by 100
  152.       hide card field 4
  153.       show card field 2
  154.       play "Woob Woob"
  155.       play "Woob Woob"
  156.       wait for 3 seconds
  157.       add card field 1 to background field 1
  158.       put 1 into winner
  159.     end if
  160.   end if
  161. end if
  162.  
  163. -- check buttons for macs
  164.  
  165. if icon of BackGround button 1 = 7 then
  166.   get icon of BackGround button 2
  167.   if icon of BackGround button 2 = 7 then
  168.     get icon of BackGround button 3
  169.     if icon of BackGround button 3 = 7 then
  170.       multiply card field 1 by 500
  171.       hide card field 4
  172.       show card field 2
  173.       play "Woob Woob"
  174.       play "Woob Woob"
  175.       wait for 3 seconds
  176.       add card field 1 to background field 1
  177.       put 1 into winner
  178.     end if
  179.   end if
  180. end if
  181.  
  182. -- total up winings and show payoff
  183.  
  184. if winner = 0 then
  185.   subtract card field 1 from background field 1
  186. end if
  187. put 0 into card field 1
  188. hide card field 2
  189. hide card field 4
  190. show card field 3
  191. talk "place your bet." ,150,150
  192.  
  193. -- check if user has any money
  194. if background field "cash" = 0 then
  195.   answer "You don't have any money" with "Quit Game" or "Go To Bank"
  196.   if it is "Go to Bank" then
  197.     answer "How much do you want to borrow" with "100" or "200"
  198.     if it is "100" then
  199.       add 100 to background field "cash"
  200.     else if it is "200" then
  201.       add 200 to background field "cash"
  202.     end if
  203.   end if
  204. end if
  205.  
  206. end mouseUp
  207.  
  208.  
  209. -- part 43 (button)
  210. -- low flags: 00
  211. -- high flags: 8004
  212. -- rect: left=191 top=224 right=240 bottom=235
  213. -- title width / last selected line: 0
  214. -- icon id / first selected line: 0 / 0
  215. -- text alignment: 1
  216. -- font id: 0
  217. -- text size: 12
  218. -- style flags: 0
  219. -- line height: 16
  220. -- part name: $1
  221. ----- HyperTalk script -----
  222. on mouseUp
  223.   add 1 to card field "bet"
  224.   if card field "bet" > 100 then
  225.     answer "You can only bet up to $100.00" with "OK"
  226.     subtract 1 from card field "bet"
  227.   end if
  228. end mouseUp
  229.  
  230.  
  231.  
  232. -- part 44 (button)
  233. -- low flags: 00
  234. -- high flags: 8004
  235. -- rect: left=245 top=224 right=240 bottom=289
  236. -- title width / last selected line: 0
  237. -- icon id / first selected line: 0 / 0
  238. -- text alignment: 1
  239. -- font id: 0
  240. -- text size: 12
  241. -- style flags: 0
  242. -- line height: 16
  243. -- part name: $5
  244. ----- HyperTalk script -----
  245. on mouseUp
  246.   add 5 to card field 1
  247.   if card field 1 > 100 then
  248.     answer "You can only bet up to $100.00" with "OK"
  249.     subtract 5 from card field 1
  250.   end if
  251. end mouseUp
  252.  
  253.  
  254.  
  255. -- part 45 (button)
  256. -- low flags: 00
  257. -- high flags: 8004
  258. -- rect: left=299 top=224 right=240 bottom=343
  259. -- title width / last selected line: 0
  260. -- icon id / first selected line: 0 / 0
  261. -- text alignment: 1
  262. -- font id: 0
  263. -- text size: 12
  264. -- style flags: 0
  265. -- line height: 16
  266. -- part name: $10
  267. ----- HyperTalk script -----
  268. on mouseUp
  269.   add 10 to card field 1
  270.   if card field 1 > 100 then
  271.     answer "You can only bet up to $100.00" with "OK"
  272.     subtract 10 from card field 1
  273.   end if
  274. end mouseUp
  275.  
  276.  
  277.  
  278. -- part 48 (field)
  279. -- low flags: 00
  280. -- high flags: 0004
  281. -- rect: left=413 top=224 right=242 bottom=457
  282. -- title width / last selected line: 0
  283. -- icon id / first selected line: 0 / 0
  284. -- text alignment: 1
  285. -- font id: 0
  286. -- text size: 12
  287. -- style flags: 0
  288. -- line height: 16
  289. -- part name: bet
  290.  
  291.  
  292. -- part 50 (button)
  293. -- low flags: 00
  294. -- high flags: 0004
  295. -- rect: left=56 top=225 right=263 bottom=94
  296. -- title width / last selected line: 0
  297. -- icon id / first selected line: 20098 / 20098
  298. -- text alignment: 1
  299. -- font id: 0
  300. -- text size: 12
  301. -- style flags: 0
  302. -- line height: 16
  303. -- part name: New Button
  304. ----- HyperTalk script -----
  305. on mouseUp
  306.   go to stack "Home"
  307.   show menubar
  308. end mouseUp
  309.  
  310.  
  311.  
  312.  
  313. -- part 52 (field)
  314. -- low flags: 80
  315. -- high flags: 0000
  316. -- rect: left=237 top=170 right=198 bottom=385
  317. -- title width / last selected line: 0
  318. -- icon id / first selected line: 0 / 0
  319. -- text alignment: 1
  320. -- font id: 3
  321. -- text size: 18
  322. -- style flags: 16640
  323. -- line height: 24
  324. -- part name: 
  325.  
  326.  
  327. -- part 53 (field)
  328. -- low flags: 00
  329. -- high flags: 0000
  330. -- rect: left=237 top=175 right=203 bottom=385
  331. -- title width / last selected line: 0
  332. -- icon id / first selected line: 0 / 0
  333. -- text alignment: 1
  334. -- font id: 3
  335. -- text size: 14
  336. -- style flags: 16640
  337. -- line height: 18
  338. -- part name: 
  339.  
  340.  
  341. -- part 54 (field)
  342. -- low flags: 80
  343. -- high flags: 0000
  344. -- rect: left=237 top=174 right=202 bottom=385
  345. -- title width / last selected line: 0
  346. -- icon id / first selected line: 0 / 0
  347. -- text alignment: 1
  348. -- font id: 3
  349. -- text size: 14
  350. -- style flags: 256
  351. -- line height: 18
  352. -- part name: 
  353.  
  354.  
  355. -- part 58 (field)
  356. -- low flags: 01
  357. -- high flags: 0000
  358. -- rect: left=92 top=188 right=202 bottom=161
  359. -- title width / last selected line: 0
  360. -- icon id / first selected line: 0 / 0
  361. -- text alignment: 0
  362. -- font id: 3
  363. -- text size: 10
  364. -- style flags: 256
  365. -- line height: 13
  366. -- part name: 
  367.  
  368.  
  369. -- part 60 (button)
  370. -- low flags: 00
  371. -- high flags: 0004
  372. -- rect: left=56 top=272 right=310 bottom=94
  373. -- title width / last selected line: 0
  374. -- icon id / first selected line: 14767 / 14767
  375. -- text alignment: 1
  376. -- font id: 0
  377. -- text size: 12
  378. -- style flags: 0
  379. -- line height: 16
  380. -- part name: New Button
  381. ----- HyperTalk script -----
  382. on mouseUp
  383.   go to card id 4171
  384. end mouseUp
  385.  
  386.  
  387.  
  388. -- part contents for card part 48
  389. ----- text -----
  390. 0
  391.  
  392. -- part contents for card part 52
  393. ----- text -----
  394. Jackpot
  395.  
  396.  
  397. -- part contents for card part 53
  398. ----- text -----
  399. Place Your Bet
  400.  
  401. -- part contents for card part 54
  402. ----- text -----
  403. 3 In A Row Pays
  404.  
  405. -- part contents for background part 6
  406. ----- text -----
  407. 100